home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0452.PRG < prev    next >
Text File  |  1988-06-18  |  1KB  |  36 lines
  1. *************************************************************
  2. *     ML0452.CMD - ROUTINE TO DELETE FOR GIVEN CODE         *    9/24/84
  3. *************************************************************
  4. SET TALK OFF
  5. ERASE
  6. STORE '            ' TO TARGET
  7. STORE     0 TO ZIPLO
  8. STORE 99999 TO ZIPHI
  9.  
  10. @  8,10 SAY '     DELETE Selected Records by Reference Code'
  11. @ 12,10 SAY 'Input Reference Code      ' GET TARGET PICTURE 'XXXXXXXXXXXX'
  12. @ 14,10 SAY 'Input ZIP CODE Range   ' GET ZIPLO PICTURE '99999'
  13. @ 14,41 SAY '   TO  ' GET ZIPHI PICTURE '99999'
  14. READ
  15. CLEAR GETS
  16.  
  17. STORE "',"+TRIM(TARGET)+",'" TO TARGET
  18.  
  19. STORE 'Y'    TO SEL
  20. @ 17,10 SAY 'Are you Sure you Wish to Continue? (Y/N) 'GET SEL PICTURE '!'
  21. READ
  22. IF SEL='Y'
  23.     SET TALK ON
  24.     DELETE ALL FOR @(&TARGET,CODES)#0 .AND. (VAL(ZIP)>=ZIPLO .AND. VAL(ZIP)<=ZIPHI)
  25.     SET TALK OFF
  26.     ENDIF
  27.  
  28. RELEASE ZIPHI,ZIPLO,TARGET
  29. RETURN
  30. 0 .AND. (VAL(ZIP)>=ZIPLO .AND. VAL(ZIP)<=ZIPHI)
  31.     SET TALK OFF
  32.     ENDIF
  33.  
  34. RELEASE ZIPHI,ZIPLO,TARGET
  35. RETURN
  36.